<!--#include file="lib/utf-8.asp"-->
<!--#include file="lib/connopen.asp"-->
<!--#include file="lib/asp-common-lib.asp"-->
<!--#include file="lib/asp-json-lib.asp"-->
<%
Response.ContentType = "application/json"
dim json,post,flag,sql,rs
post=saferequest("post",1)
flag=saferequest("flag",1)
set json=jsObject()
json("bStatus")=false
if session("login") then
	if session("system")="baoguan" then
		set rs=server.createobject("adodb.recordset")
		sql="select flag from flag inner join username on flag.username=username.id where username.id="&session("id")&" and post="&post&" and active=true and flag>="&flag
		rs.open sql,conn,1,1
		if not rs.eof then
			json("bStatus")=true
		else
			json("sInfo")="没有操作权限"
		end if
		rs.close
		set rs=nothing
	else
		json("sInfo")="没有报关单系统权限"
	end if
else
	json("sInfo")="没有登录"
end if
json.Flush
%>
<!--#include file="lib/connclose.asp"-->